z1 <- (92 - 81)/5
z2 <- (93 - 81)/5

prob <- abs(pnorm(z2) - pnorm(z1))
prob

pnorm(90.1,98,5) - pnorm(98.1,98,5) 